home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2003 May
/
PCWorld_2003-05_cd.bin
/
Software
/
Komercni
/
dispatcher
/
setup.exe
/
{app}
/
Tisk
/
Strih.hpr
/
Strih.txt
Wrap
Text File
|
2003-02-18
|
19KB
|
713 lines
object Strihacka1Rpt_1: TStrihacka1Rpt
Left = 276
Top = 246
Width = 833
Height = 665
Caption = 'Kniha j�zd'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object QuickRep1: TQuickRep
Left = 8
Top = 0
Width = 794
Height = 1123
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = ADODataSet1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE'
'BUSSKM'
'PRIVKM')
Functions.DATA = (
'0'
'0'
#39#39
'0'
'0')
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100.000000000000000000
2970.000000000000000000
100.000000000000000000
2100.000000000000000000
100.000000000000000000
100.000000000000000000
0.000000000000000000)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = Auto
PrintIfEmpty = True
SnapToGrid = True
Units = Native
Zoom = 100
object QRBand1: TQRBand
Left = 38
Top = 38
Width = 718
Height = 43
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
113.770833333333300000
1899.708333333333000000)
BandType = rbTitle
object QRLabel2: TQRLabel
Left = 0
Top = 8
Width = 54
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
0.000000000000000000
21.166666666666700000
142.875000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '[:Firma:]'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape1: TQRShape
Left = 0
Top = 27
Width = 716
Height = 3
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
7.937500000000000000
0.000000000000000000
71.437500000000000000
1894.416666666670000000)
Pen.Color = clNavy
Pen.Width = 3
Shape = qrsHorLine
end
object QRLabel1: TQRLabel
Left = 654
Top = 8
Width = 61
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1730.375000000000000000
21.166666666666700000
161.395833333333000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'St��ha�ka'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QRGroup1: TQRGroup
Left = 38
Top = 81
Width = 718
Height = 32
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ForceNewColumn = False
ForceNewPage = False
LinkBand = QRBand2
ParentFont = False
Size.Values = (
84.666666666666670000
1899.708333333333000000)
Expression = 'ADODataSet1.roztrasy.klic'
FooterBand = QRBand3
Master = QuickRep1
ReprintOnNewPage = False
object QRDBText8: TQRDBText
Left = 344
Top = 4
Width = 43
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.916666666666700000
910.166666666667000000
10.583333333333300000
113.770833333333000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADODataSet1
DataField = 'name'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRDBText1: TQRDBText
Left = 604
Top = 6
Width = 104
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.916666666666700000
1598.083333333330000000
15.875000000000000000
275.166666666667000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADODataSet1
DataField = 'rozvoz.nazev'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRShape2: TQRShape
Left = 392
Top = 0
Width = 39
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
171.979166666667000000
1037.166666666670000000
0.000000000000000000
103.187500000000000000)
Shape = qrsVertLine
end
end
object QRBand2: TQRBand
Left = 38
Top = 113
Width = 718
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = True
Frame.DrawRight = True
Frame.Style = psDot
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
47.625000000000000000
1899.708333333333000000)
BandType = rbDetail
object QRDBText4: TQRDBText
Left = 152
Top = 1
Width = 34
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
402.166666666667000000
2.645833333333330000
89.958333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADODataSet1
DataField = 'text1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRDBText5: TQRDBText
Left = 336
Top = 1
Width = 49
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
889.000000000000000000
2.645833333333330000
129.645833333333000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = ADODataSet1
DataField = 'mnozstvi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRShape3: TQRShape
Left = 392
Top = 0
Width = 39
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
171.979166666667000000
1037.166666666670000000
0.000000000000000000
103.187500000000000000)
Shape = qrsVertLine
end
object QRExpr1: TQRExpr
Left = 432
Top = 0
Width = 121
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
1143.000000000000000000
0.000000000000000000
320.145833333333000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'DIV(ADODataSet1.mnozstvi, ADODataSet1.baleno)'
FontSize = 12
end
object QRExpr2: TQRExpr
Left = 560
Top = 0
Width = 129
Height = 19
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
50.270833333333300000
1481.666666666670000000
0.000000000000000000
341.312500000000000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression =
'DIV(ADODataSet1.mnozstvi - (DIV(ADODataSet1.mnozstvi, ADODataS' +
'et1.baleno) * ADODataSet1.baleno), ADODataSet1.baleno2)'
FontSize = 12
end
end
object QRBand3: TQRBand
Left = 38
Top = 131
Width = 718
Height = 6
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
15.875000000000000000
1899.708333333333000000)
BandType = rbGroupFooter
end
object QRBand4: TQRBand
Left = 38
Top = 137
Width = 718
Height = 24
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
63.500000000000000000
1899.708333333333000000)
BandType = rbPageFooter
object QRLabel18: TQRLabel
Left = 0
Top = 8
Width = 260
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
0.000000000000000000
21.166666666666700000
687.916666666667000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Vyti�t�no programem Dispatcher 3, HI Software s.r.o.'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRSysData1: TQRSysData
Left = 616
Top = 8
Width = 105
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1629.833333333330000000
21.166666666666700000
277.812500000000000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
Color = clWhite
Data = qrsPageNumber
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Text = 'Strana'
Transparent = False
FontSize = 8
end
end
object T1: TQRLabel
Left = 120
Top = 16
Width = 8
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
317.500000000000000000
42.333333333333300000
21.166666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '0'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object T2: TQRLabel
Left = 160
Top = 16
Width = 8
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
423.333333333333000000
42.333333333333300000
21.166666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '0'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object T3: TQRLabel
Left = 200
Top = 16
Width = 15
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
529.166666666667000000
42.333333333333300000
39.687500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '32'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object NTS: TQRLabel
Left = 232
Top = 16
Width = 148
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
613.833333333333000000
42.333333333333300000
391.583333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Rozpis nakl�dky pro strih'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object idVerze: TQRLabel
Left = 360
Top = 16
Width = 8
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
952.500000000000000000
42.333333333333300000
21.166666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '0'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object Agenda: TQRLabel
Left = 408
Top = 16
Width = 8
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1079.500000000000000000
42.333333333333300000
21.166666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '4'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object ADODataSet1: TADODataSet
CursorType = ctStatic
CommandText =
'SELECT rozvoz.klic, rozvoz.nazev, roztrasy.klic, roztrasy.name,' +
' roztrasy.car, roztrasy.mistood, roztrasy.mistodo,roztrasy.drive' +
'r,roztrasy.m, roztrasy.time1, roztrasy.timeodjezdu, roztrasy.g, ' +
'roztrasy.carg, roztrasy.objem, roztrasy.zdrzeni, fapol.idtrasa, ' +
'fapol.text1, SUM(fapol.mn) AS mnozstvi, SUM(fapol.g) AS grams, z' +
'bozi.nazev, zbozi.baleno FROM rozvoz, roztrasy, fapol, zbozi WHE' +
'RE (rozvoz.klic = 8) AND (roztrasy.idrozvoz = rozvoz.klic) AND (' +
'fapol.idtrasa = roztrasy.klic) AND (fapol.text1 = zbozi.nazev) G' +
'ROUP BY rozvoz.klic, rozvoz.nazev,roztrasy.klic, roztrasy.name, ' +
'roztrasy.car, roztrasy.mistood, roztrasy.mistodo, roztrasy.drive' +
'r, roztrasy.m, roztrasy.time1,roztrasy.timeodjezdu,roztrasy.g, r' +
'oztrasy.carg, roztrasy.objem, roztrasy.zdrzeni, fapol.idtrasa, f' +
'apol.text1, zbozi.nazev, zbozi.baleno ORDER BY roztrasy.klic, fa' +
'pol.text1'
Parameters = <>
Left = 64
Top = 16
end
end